home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).do / MEM MAP MENU.bas < prev    next >
BASIC Source File  |  1996-12-24  |  4KB  |  74 lines
  1. 10  GOTO 1000: REM START AT MENU
  2. 100  REM -----------------------<CTRL-M><CTRL-M>     SOFTPAL PROGRAM TEXT SCREENS<CTRL-J>
  3. 110  TEXT : HOME : CLEAR 
  4. 120 G$ = "THIS IS A VERY USEFUL PROGRAM": GOSUB 3000
  5. 130 G$ = "(EXEC FILE)....  SO KEEP IT HANDY!": PRINT : GOSUB 3000
  6. 140 G$ = "TO USE IT, SIMPLY TYPE: EXEC MEM MAP": PRINT : GOSUB 3000
  7. 150 G$ = "WITH THE FILE IN THE ACTIVE DISK DRIVE.": PRINT : GOSUB 3000
  8. 160 G$ = "---------------------------------------": PRINT : GOSUB 3000
  9. 170 G$ = "BEST OF ALL IT USES ZERO RAM MEMORY": PRINT : GOSUB 3000
  10. 180 G$ = "AND IT WON'T AFFECT THE PROGRAMS": PRINT : GOSUB 3000
  11. 190 G$ = "YOU'VE LOADED INTO MEMORY!!!": PRINT : GOSUB 3000
  12. 200 G$ = "I'VE ADDED A FEW LINES TO THE ORIGINAL": PRINT : GOSUB 3000
  13. 210 G$ = "FROM 'INSIDE WASHINGTON APPLE PI' PG 25": PRINT : GOSUB 3000
  14. 220 G$ = "AVAILABLE FROM A.P.P.L.E.": PRINT : GOSUB 3000
  15. 230  FOR I = 1 TO 1000: NEXT :G$ = "===> ANY KEY TO RETURN TO MENU.......": INVERSE : PRINT : GOSUB 3000: GET K$: PRINT K$;: NORMAL 
  16. 240  GOSUB 3300: GOSUB 3600: GOTO 2000: REM <CTRL-J><CTRL-J>
  17. 1000  REM **** TITLE SCREEN ****<CTRL-J>
  18. 1010  TEXT : HOME : GOSUB 3200: GOSUB 3100
  19. 1020  DATA 11,MODIFIED AND SUBMITTED,12,BY,13,JIM BURWELL,14,PO  BOX 713,15,FT RUCKER ALA 36362,18,MEM MAP,19,COPYRIGHT,20,INSIDE WASHINGTON APPLE PI,21,AVAILABLE FROM  A.P.P.L.E.
  20. 1030  FOR I = 1 TO 9: READ GT: READ G$: VTAB GT: HTAB 2: GOSUB 3500: NEXT 
  21. 1040  VTAB 23: HTAB 10: INVERSE : PRINT "RETURN  FOR MENU....": NORMAL 
  22. 1050  VTAB 23: HTAB 28: GET Y$: IF Y$ < > CHR$(13)  THEN 1050
  23. 2000  REM    **** MENU ****<CTRL-J>
  24. 2010  HOME : GOSUB 3100: GOSUB 3200
  25. 2020  FOR K = 1 TO 5: READ M$(K): NEXT K
  26. 2030  DATA  "TEXT SCREEN EXPLANATIONS","RUN (EXEC) MEM MAP","LIST MEM MAP (EXEC FILE)","LIST THIS PROGRAM","EXIT TO MENU"
  27. 2040  FOR K = 1 TO 2: VTAB (2 *K +8): HTAB 8: PRINT K;". ";M$(K): NEXT K
  28. 2050  VTAB 13: HTAB 10: PRINT "('RUN' RESTARTS THIS PROG)": HTAB 10: PRINT "(WHEN MEM MAP IS FINISHED)
  29. 2060  FOR K = 3 TO 5: VTAB (2 *K +10): HTAB 8: PRINT K;". ";M$(K): NEXT K
  30. 2070  VTAB 23: HTAB 6: INVERSE : PRINT "ENTER CHOICE (BY NUMBER): "; CHR$(91);" "; CHR$(93); CHR$(8); CHR$(8);: NORMAL : GET Y$: PRINT Y$;:Y =  VAL(Y$): IF Y <1  OR Y >5  THEN 2070
  31. 2080  IF Y <3  THEN  VTAB (2 *Y +8): HTAB 8: INVERSE : PRINT Y$;". ";M$(Y): NORMAL : FOR KK = 1 TO 800: NEXT KK: GOTO 2100
  32. 2090  VTAB (2 *Y +10): HTAB 8: INVERSE : PRINT Y$;". ";M$(Y): NORMAL : FOR KK = 1 TO 800: NEXT KK
  33. 2100  ON Y GOTO 100,4000,4100,4200,4300: REM    <CTRL-J><CTRL-J>
  34. 3000  REM -----------------------<CTRL-M>           SUBROUTINES<CTRL-J><CTRL-J>
  35. 3010 SP =  INT((40 - LEN(G$))/2)
  36. 3020  PRINT 
  37. 3030  IF SP < >0  THEN  PRINT  TAB( SP);:
  38. 3040  FOR I = 1 TO  LEN(G$)
  39. 3050  PRINT  MID$ (G$,I,1);
  40. 3060  FOR TI = 1 TO 10: NEXT TI: GOSUB 3400
  41. 3070  NEXT I
  42. 3080  FOR TI = 1 TO 100: NEXT 
  43. 3090  RETURN : REM <CTRL-J><CTRL-J>
  44. 3100  VTAB 1: HTAB 1: FOR I = 1 TO 39: PRINT "*";:X = 1: NEXT 
  45. 3110  FOR I = 2 TO 23: VTAB I: HTAB 39: PRINT "*";:X = 1: NEXT 
  46. 3120  VTAB 24: FOR I = 39 TO 1  STEP  -1: HTAB I: PRINT "*";:X = 1: NEXT 
  47. 3130  FOR I = 23 TO 2  STEP  -1: VTAB I: HTAB 1: PRINT "*";:X = 1: NEXT 
  48. 3140  RETURN : REM <CTRL-J><CTRL-J>
  49. 3200  VTAB 5: HTAB 10: INVERSE : PRINT "MEMORY MAPPING PROGRAM": PRINT : HTAB 15: PRINT " (MEM MAP) ": NORMAL : RETURN : REM <CTRL-J><CTRL-J>
  50. 3300  FOR T = 1 TO 12
  51. 3310 B = 25 -T
  52. 3320  GOSUB 3400
  53. 3330  VTAB T: HTAB 1: CALL  -868
  54. 3340  GOSUB 3400
  55. 3350  VTAB B: HTAB 1: CALL  -868
  56. 3360  GOSUB 3400
  57. 3370  FOR TI = 1 TO 10: NEXT TI
  58. 3380  NEXT T
  59. 3390  RETURN : REM <CTRL-J><CTRL-J>
  60. 3400 CLICK =  PEEK(49200) + PEEK(49200): RETURN : REM <CTRL-J><CTRL-J>
  61. 3500 S = (40 - LEN(G$))/2: PRINT  TAB( S);G$: RETURN : REM <CTRL-J><CTRL-J>
  62. 3600  RESTORE : FOR I = 1 TO 9: READ GT: READ GT$: NEXT : RETURN : REM <CTRL-J><CTRL-J>
  63. 4000  REM ----------------------<CTRL-M><CTRL-M>       OPTIONS FROM MENU<CTRL-J><CTRL-J>
  64. 4010  TEXT : HOME 
  65. 4020  PRINT  CHR$(4);"EXEC MEM MAP"
  66. 4030  END : REM <CTRL-J><CTRL-J>
  67. 4100  TEXT : HOME 
  68. 4110  PRINT  CHR$(4);"RUN TEXT.READER"
  69. 4120  REM <CTRL-J><CTRL-J>
  70. 4200  TEXT : HOME : LIST 
  71. 4210  FOR I = 1 TO 1000: NEXT :G$ = "===> ANY KEY TO RETURN TO MENU.......": INVERSE : PRINT : GOSUB 3000: GET K$: PRINT K$;: NORMAL 
  72. 4220  GOSUB 3600: GOTO 2000: REM <CTRL-J><CTRL-J>
  73. 4300  PRINT  CHR$(4);"RUN MENU"
  74. 4310  REM <CTRL-M><CTRL-M>---------------------------------